home *** CD-ROM | disk | FTP | other *** search
Text File | 1999-12-27 | 4.6 KB | 214 lines | [TEXT/PLER] |
- //
- // EarthBrowser - toolwind.gdx
- // Copyright 1999 Lunar Software Inc.
- //
-
- <GEOINDEX VERSION=1 HEIGHT=43 WIDTH=110 BACKGROUND=#DDDDDD>
-
- <global ShowVolcanoes=0/>
- <global ShowWebcams=0/>
- <Class ID="toolbarbutton" SUPERCLASS="Label">
- <Variable>
- mButtonVarRef = "";
- mButtonOn=-1;
- </Variable>
-
- <Function>
- INIT(xOffset, yOffset, buttonURL, buttonOn, varRefName) {
- mButtonVarRef = varRefName;
- objLayer = 2;
- objDisplayRange = 1000;
- objAlignment = (bottom, left);
- objXOffset = xOffset;
- objYOffset = yOffset;
- objImageURL = buttonURL;
- mButtonOn = buttonOn;
- if(buttonOn)
- objFrameIndex = 1;
- else
- objFrameIndex = 0;
- }
- </Function>
-
- <Function>
- Click() {
- SetButtonOn(!mButtonOn);
- }
- </Function>
-
- <Function>
- SetButtonOn(isButtonOn) {
- if(mButtonOn != isButtonOn) {
- mButtonOn = isButtonOn;
- VARREF(mButtonVarRef) = mButtonOn;
- if(mButtonOn)
- objFrameIndex = 1;
- else
- objFrameIndex = 0;
- } else
- objFrameIndex = 0;
- }
- </Function>
-
- <Function>
- MouseOver(isOver) {
- if(isOver) {
- if(mButtonOn)
- objFrameIndex = 3;
- else
- objFrameIndex = 2;
- } else {
- if(mButtonOn)
- objFrameIndex = 1;
- else
- objFrameIndex = 0;
- }
- }
- </Function>
-
- </Class>
-
- <Class ID="SimpleButton" SUPERCLASS="Label">
- <Function>
- INIT(xOffset, yOffset, buttonURL) {
- objLayer = 2;
- objDisplayRange = 1000;
- objAlignment = (bottom, left);
- objXOffset = xOffset;
- objYOffset = yOffset;
- objImageURL = buttonURL;
- objFrameIndex = 0;
- }
- </Function>
-
- <Function>
- MouseOver(isOver) {
- if(isOver)
- objFrameIndex = 2;
- else
- objFrameIndex = 0;
- }
- </Function>
- </Class>
-
- // Clouds
- <Instance ID="CloudTool" CLASS="toolbarbutton">
- INIT(1, 22, "Images/Labels/CloudLabel.gif", ShowClouds, "ShowClouds");
- objToolTip = "Latest Clouds";
- </Instance>
-
- // Shadows
- <Instance ID="ShadowTool" CLASS="toolbarbutton">
- INIT(23, 22, "Images/Labels/SunLabel.gif", ShowShadows, "ShowShadows");
- objToolTip = "Night Shadows";
- </Instance>
-
- // Tool Buttons
- <Class ID="ZoomOutButton" SUPERCLASS="toolbarbutton">
- <Function>
- Click() {
- if(!mButtonOn) {
- SUPERCLASS::Click();
- ToolType = 2;
- HandTool->SetButtonOn(false);
- ZoomInTool->SetButtonOn(false);
- }
- }
- </Function>
- </Class>
- <Instance ID="ZoomOutTool" CLASS="ZoomOutButton">
- INIT(45, 22, "Images/Labels/ZoomOutLabel.gif", ToolType == 2, "");
- objToolTip = "Zoom Out";
- </Instance>
-
-
- <Class ID="ZoomInButton" SUPERCLASS="toolbarbutton">
- <Function>
- Click() {
- if(!mButtonOn) {
- SUPERCLASS::Click();
- ToolType = 1;
- HandTool->SetButtonOn(false);
- ZoomOutTool->SetButtonOn(false);
- }
- }
- </Function>
- </Class>
- <Instance ID="ZoomInTool" CLASS="ZoomInButton">
- INIT(67, 22, "Images/Labels/ZoomInLabel.gif", ToolType == 1, "");
- objToolTip = "Zoom In";
- </Instance>
-
- <Class ID="HandButton" SUPERCLASS="toolbarbutton">
- <Function>
- Click() {
- if(!mButtonOn) {
- SUPERCLASS::Click();
- ToolType = 0;
- ZoomInTool->SetButtonOn(false);
- ZoomOutTool->SetButtonOn(false);
- }
- }
- </Function>
- </Class>
- <Instance ID="HandTool" CLASS="HandButton">
- INIT(89, 22, "Images/Labels/HandLabel.gif", ToolType == 0, "");
- objToolTip = "Rotate";
- </Instance>
-
- <Class ID="FullEarthButton" SUPERCLASS="SimpleButton">
- <Function> Click() { FullEarthView(); } </Function>
- </Class>
- <Instance ID="EarthTool" CLASS="FullEarthButton">
- INIT(1, 1, "Images/Labels/EarthLabel.gif");
- objToolTip = "Default View";
- </Instance>
-
- // Volcanoes
- <Class ID="VolcanoButton" SUPERCLASS="toolbarbutton">
- <Function>
- Click() {
- SUPERCLASS::Click();
- if(mButtonOn)
- ADDMAINGEOINDEX("geofile://volcano.gdx");
- else
- REMOVEMAINGEOINDEX("geofile://volcano.gdx");
- }
- </Function>
- </Class>
- <Instance ID="VolcanoTool" CLASS="VolcanoButton">
- INIT(23, 1, "Images/Labels/VolcanoLabel.gif", ShowVolcanoes, "ShowVolcanoes");
- objToolTip = "Volcanoes";
- </Instance>
-
-
- // Earthquakes
- <Instance ID="QuakeTool" CLASS="toolbarbutton">
- INIT(45, 1, "Images/Labels/QuakeLabel.gif", ShowQuakes, "ShowQuakes");
- objToolTip = "Latest Earthquakes";
- </Instance>
-
-
- <Class ID="CamButton" SUPERCLASS="toolbarbutton">
- <Function>
- Click() {
- SUPERCLASS::Click();
- if(mButtonOn)
- ADDMAINGEOINDEX("geofile://WebCams.gdx");
- else
- REMOVEMAINGEOINDEX("geofile://WebCams.gdx");
- }
- </Function>
- </Class>
- <Instance ID="WebCamTool" CLASS="CamButton">
- INIT(67, 1, "Images/Labels/WebcamsLabel.gif", ShowWebcams, "ShowWebcams");
- objToolTip = "Web Cameras";
- </Instance>
-
- <Instance ID="WeatherTool" CLASS="toolbarbutton">
- INIT(89, 1, "Images/Labels/WeatherLabel.gif", ShowWeather, "ShowWeather");
- objToolTip = "Weather";
- </Instance>
-
-
- </GEOINDEX>